home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
doordr50.zip
/
UNITINTR.ARJ
/
ANSIMENU.INT
next >
Wrap
Text File
|
1992-02-02
|
516b
|
22 lines
unit AnsiMenu;
interface
uses crt, doordriv;
type
menutype = record
header: string[80];
footer: string[80];
headercolor, footercolor, optioncolor, desccolor, arrowcolor: byte;
bracketcolor: byte;
numoptions: byte;
options: array[1..20] of string[1];
desc: array[1..20] of string[80];
end;
const
midscreeny: byte = 12;
midscreenx: byte = 40;
function GetAnsiMenu(menu: menutype): char;